(byte-compile-unfold-lambda): Recursively optimize body.

diff --git a/lisp/emacs-lisp/byte-opt.el b/lisp/emacs-lisp/byte-opt.el
index 41ebdd8584d08f176f687d208d89124898c34d6e..29fcd26d07f4a8e5774ecd4a4f418b04a17d8480 100644 (file)
--- a/lisp/emacs-lisp/byte-opt.el
+++ b/lisp/emacs-lisp/byte-opt.el
@@ -328,6 +328,7 @@
                (byte-compile-warn
                 "attempt to open-code %s with too many arguments" name))
            form)
+       (setq body (mapcar 'byte-optimize-form body))
        (let ((newform 
               (if bindings
                   (cons 'let (cons (nreverse bindings) body))